home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / rowcolumn.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.4 KB  |  68 lines
  1. # CVS $Id: rowcolumn.tcl,v 1.4 1995/04/28 12:52:17 zibi Exp $
  2.  
  3. #
  4. # a minimal test of the rowcolumn widget
  5. #
  6.  
  7. proc quitCB {form cbs} {
  8.     WsClose
  9. }
  10.  
  11. proc toggleChangedCB {cbs} {
  12.     global label
  13.  
  14.     set wl [split [lindex $cbs 0] .]
  15.     set wi [expr "[llength $wl] - 1"]
  16.     WsSetValues $label \
  17.         -label "[lindex $wl $wi] Value: [lindex $cbs 1]"
  18. }
  19.  
  20. set fn [WsOpen testtoggles]
  21.  
  22. set fn [WsStartForm $fn.toggles -title "Toggles" \
  23.        -xmArgs "XmNmarginWidth 10
  24.                 XmNmarginHeight 10
  25.             XmNbackground green"]
  26.  
  27. set rc1 [WsRowColumn $fn.rc1 -packing NONE ]
  28.  
  29. set tog ""
  30. foreach i {0 1 2} {
  31.         set j [expr $i * 30]
  32.        set tog [WsToggleButton $rc1.tog$i -label "Toggle $i" \
  33.         -callback toggleChangedCB \
  34.         -xmArgs "XmNx $i XmNy $j"]
  35. }
  36.  
  37. set rc2 [WsRowColumn $fn.rc2 -below $rc1 -packing COLUMN \
  38.      -xmArgs "XmNbackground pink" ]
  39.  
  40. foreach i {4 5 6} {
  41.        set tog [WsToggleButton $rc2.tog$i -label "Toggle $i" -value 1 \
  42.         -callback toggleChangedCB]
  43. }
  44.  
  45. set rc3 [WsRowColumn $fn.rc3 -below $rc2 -packing TIGHT ]
  46.  
  47. foreach i {7 8 9} {
  48.        set tog [WsToggleButton $rc3.tog$i -label "Toggle $i" -value 0 \
  49.         -callback toggleChangedCB]
  50. }
  51.  
  52. set label [WsLabel $fn.label -label "No Callback Yet" -below $rc3]
  53.  
  54. WsPushButton $fn.quit -callback "quitCB $fn" \
  55.     -below $label \
  56.     -leftSide FORM\
  57.     -rightSide FORM\
  58.     -topOffset 10\
  59.     -leftOffset 5 \
  60.     -rightOffset 5\
  61.     -CHARM_topOffset 1\
  62.     -CHARM_leftOffset 2\
  63.     -CHARM_rightOffset 2
  64.  
  65. WsShow $fn
  66. WsMainLoop
  67.  
  68.